﻿Imports vb = Microsoft.VisualBasic
Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports System.IO
Imports System.Data.OleDb
Public Class PreRespAleat

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_CANCELAR.Click
        rtxt_RESPUESTA.Text = ""
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ACEPTAR.Click
        If Me.Text = "PRE-RESPUESTAS ALEATORIAS" Then

            If rtxt_RESPUESTA.Text <> "" Then
                '==============================================================================================
                'COMENTARIOS. Procedimiento encargado de grabar la PRE-RESPUESTA DEL PSI EN LA B.D.
                '==============================================================================================

                'Se establece la conexión con la base de datos.
                Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
                Dim ODbConn As New OleDb.OleDbConnection(sCnn)
                ODbConn.Open()

                'Se crea un objeto Command 
                'Se ejecuta una consulta de actualización que graba el Nombre del Juego
                Dim Command As New OleDb.OleDbCommand("INSERT INTO PSIS_PRE_RESPUESTAS_ALEATORIAS (PSI, PreRespuestaAleatoria) VALUES (" & "'" & Main.txt_Nombre_PSI.Text & "'," & "'" & rtxt_RESPUESTA.Text & "')", ODbConn)
                Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)

                'Libera memoria
                Command.Dispose()
                ODbConn.Close()

                Main.lsb_PRE_RESPUESTAS_ALEATORIAS.Items.Add(rtxt_RESPUESTA.Text)
                rtxt_RESPUESTA.Text = ""
                rtxt_RESPUESTA.Focus()


            Else
                Me.Close()
            End If

        End If

        If Me.Text = "MODIFICAR PRE-RESPUESTA ALEATORIA" Then

            If rtxt_RESPUESTA.Text <> Main.lsb_PRE_RESPUESTAS_ALEATORIAS.SelectedItem Then
                '==============================================================================================
                'COMENTARIOS. Procedimiento encargado de MODIFICAR la PRE-RESPUESTA DEL PSI EN LA B.D.
                '==============================================================================================

                'Se establece la conexión con la base de datos.
                Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
                Dim ODbConn As New OleDb.OleDbConnection(sCnn)
                ODbConn.Open()

                'Se crea un objeto Command 
                'Se ejecuta una consulta de actualización que graba el Nombre del Juego

                Dim Command As New OleDb.OleDbCommand("UPDATE PSIS_PRE_RESPUESTAS_ALEATORIAS SET PSIS_PRE_RESPUESTAS_ALEATORIAS.PreRespuestaAleatoria = " & "'" & rtxt_RESPUESTA.Text & "'" & " WHERE psi = " & "'" & Main.txt_Nombre_PSI.Text & "'" & " and PreRespuestaAleatoria = " & "'" & Main.lsb_PRE_RESPUESTAS_ALEATORIAS.SelectedItem & "'", ODbConn)
                Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)

                'Libera memoria
                Command.Dispose()


                ' CARGAR EL LISTBOX DE PRE-RESPUESTAS ALEATORIAS DE LOS PSIS
                Dim PreRespuestasCommand As New OleDb.OleDbCommand("SELECT * FROM PSIS_PRE_RESPUESTAS_ALEATORIAS WHERE PSIS_PRE_RESPUESTAS_ALEATORIAS.psi= " & "'" & Main.txt_Nombre_PSI.Text & "'", ODbConn)
                Dim PreRespuestasDataReader As OleDb.OleDbDataReader = PreRespuestasCommand.ExecuteReader(CommandBehavior.CloseConnection)

                Main.lsb_PRE_RESPUESTAS_ALEATORIAS.Items.Clear()
                While PreRespuestasDataReader.Read
                    Main.lsb_PRE_RESPUESTAS_ALEATORIAS.Items.Add(PreRespuestasDataReader.Item("PreRespuestaAleatoria").ToString)
                End While
                PreRespuestasCommand.Dispose()
                ODbConn.Close()
                'FIN

                rtxt_RESPUESTA.Text = ""
                rtxt_RESPUESTA.Focus()
                Me.Close()


            Else
                Me.Close()
            End If

        End If


        If Me.Text = "RESPUESTAS ALEATORIAS" Then

            If rtxt_RESPUESTA.Text <> "" Then
                '==============================================================================================
                'COMENTARIOS. Procedimiento encargado de grabar la RESPUESTA ALEATORIA DEL PSI EN LA B.D.
                '==============================================================================================

                'Se establece la conexión con la base de datos.
                Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
                Dim ODbConn As New OleDb.OleDbConnection(sCnn)
                ODbConn.Open()

                'Se crea un objeto Command 
                'Se ejecuta una consulta de actualización que graba el Nombre del Juego
                Dim Command As New OleDb.OleDbCommand("INSERT INTO PSIS_RESPUESTAS_ALEATORIAS (PSI, RespuestaAleatoria) VALUES (" & "'" & Main.txt_Nombre_PSI.Text & "'," & "'" & rtxt_RESPUESTA.Text & "')", ODbConn)
                Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)

                'Libera memoria
                Command.Dispose()
                ODbConn.Close()

                Main.lsb_RESPUESTAS_ALEATORIAS.Items.Add(rtxt_RESPUESTA.Text)
                rtxt_RESPUESTA.Text = ""
                rtxt_RESPUESTA.Focus()


            Else
                Me.Close()
            End If

        End If


        '..............

        If Me.Text = "MODIFICAR RESPUESTA ALEATORIA" Then

            If rtxt_RESPUESTA.Text <> Main.lsb_RESPUESTAS_ALEATORIAS.SelectedItem Then
                '==============================================================================================
                'COMENTARIOS. Procedimiento encargado de MODIFICAR la RESPUESTA DEL PSI EN LA B.D.
                '==============================================================================================

                'Se establece la conexión con la base de datos.
                Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
                Dim ODbConn As New OleDb.OleDbConnection(sCnn)
                ODbConn.Open()

                'Se crea un objeto Command 
                'Se ejecuta una consulta de actualización que graba el Nombre del Juego

                Dim Command As New OleDb.OleDbCommand("UPDATE PSIS_RESPUESTAS_ALEATORIAS SET PSIS_RESPUESTAS_ALEATORIAS.RespuestaAleatoria = " & "'" & rtxt_RESPUESTA.Text & "'" & " WHERE psi = " & "'" & Main.txt_Nombre_PSI.Text & "'" & " and RespuestaAleatoria = " & "'" & Main.lsb_RESPUESTAS_ALEATORIAS.SelectedItem & "'", ODbConn)
                Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)

                'Libera memoria
                Command.Dispose()


                ' CARGAR EL LISTBOX DE RESPUESTAS ALEATORIAS DE LOS PSIS
                Dim RespuestasCommand As New OleDb.OleDbCommand("SELECT * FROM PSIS_RESPUESTAS_ALEATORIAS WHERE PSIS_RESPUESTAS_ALEATORIAS.psi= " & "'" & Main.txt_Nombre_PSI.Text & "'", ODbConn)
                Dim RespuestasDataReader As OleDb.OleDbDataReader = RespuestasCommand.ExecuteReader(CommandBehavior.CloseConnection)

                Main.lsb_RESPUESTAS_ALEATORIAS.Items.Clear()
                While RespuestasDataReader.Read
                    Main.lsb_RESPUESTAS_ALEATORIAS.Items.Add(RespuestasDataReader.Item("RespuestaAleatoria").ToString)
                End While
                RespuestasCommand.Dispose()
                ODbConn.Close()
                'FIN

                rtxt_RESPUESTA.Text = ""
                rtxt_RESPUESTA.Focus()
                Me.Close()


            Else
                Me.Close()
            End If

        End If



    End Sub

    Private Sub rtxt_PRE_RESPUESTA_ALEATORIA_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles rtxt_RESPUESTA.KeyDown

        'NO PERMITIR LA PULSACIÓN DE LA TECLA ENTER.
        If e.KeyCode = 13 Then
            e.Handled = True
            btn_ACEPTAR.PerformClick()
        End If
    End Sub

    Private Sub rtxt_PRE_RESPUESTA_ALEATORIA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rtxt_RESPUESTA.TextChanged

    End Sub

    Private Sub PreRespAleat_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        rtxt_RESPUESTA.Focus()
    End Sub

    Private Sub PreRespAleat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class